home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / jinx.lha / Jtools < prev    next >
Text File  |  1993-08-13  |  737b  |  31 lines
  1. #! /local/bin/perl
  2.  
  3. do 'jinx.shell' || die "$0 can't include jinx.shell\n" ;
  4.  
  5. @Jtools = ('Jjoin','Jlist','Jproject','Jreport','Jsort') ;
  6.  
  7. if ( $#ARGV == 0 && $ARGV[0] eq '-D' )
  8.   { close(STDIN) ;
  9.     close(STDOUT) ;
  10.     close(STDERR) ;
  11.     $dumped = 1 ;
  12.     dump startHere ;
  13.   }
  14.  
  15. startHere: ;
  16.  
  17. if ( $dumped )
  18.   { open(TTY,'>/dev/tty') ;
  19.     open(STDIN, '<&0') || do { print TTY "can't reopen STDIN"  ; exit ; } ;
  20.     open(STDOUT,'>&1') || do { print TTY "can't reopen STDOUT" ; exit ; } ;
  21.     open(STDERR,'>&2') || do { print TTY "can't reopen STDERR" ; exit ; } ;
  22.     close(TTY) ;
  23.   }
  24.  
  25. $Jtool = substr($0,rindex($0,'/')+1) ;
  26.  
  27. if ( grep(/^$Jtool$/,@Jtools) == 1 )
  28.   { do $Jtool(@ARGV) ; }
  29. else
  30.   { die "Unknown Jinx-tool ($Jtool)\n" ; }
  31.